Files
learning/Programming Notes/PascalABCnet/урок 1(ознакомление)/РЕШАЕМ УРАВНЕНИЯ С ПАСКАЛЕМ.pas
T
oleg20111511 f235a35ebb Reorganize
2026-03-02 19:15:17 +02:00

11 lines
379 B
ObjectPascal

Program programma_kotoraia_smogla;//присваеваем имя проге
Var x,y,z,a,b,c: Integer;//назначаем переменные и их тип
Begin
WriteLn ('Слышь, введи 5 цифр через пробел');// приветствие
ReadLn(x,y,z,a,b);//считываем цифры
c:=x-y+z*(a+b);//присваеваем значение переменной "c"
WriteLn(c);//выводим результат
{
Автоподстановка открывается на ctrl+ пробел
}
End.