Question

Даны 2 переменные А и В. Если A>B, то вывести на печать их произведение, в противном случае сумму.

Answer 1

var A,B : integer;
begin
    Read(A);
    Read(B);
    if A>B then
        Writeln(A*B)
    else 
        Writeln(A+B);
end. 

Answer 2

"Лучше напишите Readln , чтобы не было слитного написания значений переменных" - зачем ерунду писать? Read отрабатывает по нажатию Enter, какое там слитное написание?

Answer 3

Да, ерунду полную написал, прошу прощение.

Answer 4

Readln придумано для ввода string

Answer 5

О, впервые узнал. Спасибо, что просветили)

Answer 6

После ввода string по Readln будут считаны также символы конца строки Chr(13)+Chr(10). Если читать по Read, эти коды останутся в буфере и их воспримет следующий Read. Это частая ошибка у начинающих.