Вот этих скобок нету на клавиатуре.
Program p1;
uses srt;
var a,p,sum:integer;
begin
clrscr;
writeln("read p and a");
read(p);
read(a);
sum:=p*a;
write(sum);
readkey;
end;
Если ты вводишь только количество суток, то алгоритм будет такой:
1) количество суток умножить на 24.
2) приписываешь нули вместо минут и секунд
Program _1;
var
dollar,euro,rub:real;
begin
writeln('Введите сумму в рублях');
readln(rub);
dollar:=rub/57;
euro:=rub/68;
writeln('Курс рубля в долларах: ',dollar);
writeln('Курс рубля в евро: ',euro);
end.
Сообщение о местоположении курсора указываетсяв строке состояния текстового редактора