Знающие люди, плз подскажите. Кто работал с Free Pascal, как сделать чтоб система заработала, что-то не врубается...

Question

Кто работал с Free Pascal, как сделать чтоб система заработала, что-то не врубается.. . 
 program Matem ; 
 var XXX: 
 (A);B:(C) ;real: 
 writeln ('Pervqy mnozqtelj'); 
 Begin readln; (A) 
 Begin writeln: ('vtoroi mnozqtelj'); 
 readln (B); 
 begin writeln: ('4astnoe') P: A*B=C;

readln; 
 end.

Андрей Иванов · Accepted Answer

> var XXX: 
> (A);B:(C) ;real: 
> writeln ('Pervqy mnozqtelj'); 
> Begin readln; (A) 
> Begin writeln: ('vtoroi mnozqtelj'); 
> begin writeln: ('4astnoe') P: A*B=C; 
 
Ну такой бред! Хоть бы букварь по языку открыл, что бы так не позориться. 
 
var 
 A, B, C: real; 
begin 
 write('pervqy mnozqtelj '); 
 readln(A); 
 write('vtoroi mnozqtelj '); 
 readln(B); 
 C := A * B; 
 writeln('proizvedenie ', C:0:2) ; 
 readln; 
end.

Евгений Шувалов · Answer

Бред не пиши и все заработает, изучай синтаксис.

Einherjar Russland · Answer

program Matem ; 
var 
A,B,C: real; 
Begin 
writeln ('Pervqy mnozqtelj'); 
 readln (A); 
 writeln ('vtoroi mnozqtelj'); 
readln(B); 
 C:=A*B; 
writeln ('4astnoe',C:4:4 ); 
readln; 
end.