1. написать программу, вопрос: «сколько байт в килобайте? » и отвечающую: «вы правы» или «вы ошиблись», в зависимости от ответа. pascal abc

Program vopros;
 var a:integer;
begin
 write('Сколько байт в килобайте?');
 readln(a);
if a = 1024
 then write('Вы правы')
 else write(Вы ошиблись')
end.