Информатика где ошибка

program no;
var 2, 2, 4: real;
begin
writeln ('Введите первое число');
readln (2);
writeln ('Введите второе число');
readln (2);
c:=2*2;
writeln ('Произведениеи равно ',4);
end.