Что не так в программе

в конце должен вывести какое число больше

program primer;

var a, b:integer;

wrateln:;

readln (a, b) ;

if a>b then writeln (a)

else writeln (b) ;

end.

Сделать калькулятор выражений в питоне начало:primer = list (input ("Введите пример:")) lenght = len (primer) i = 0 while i < lenght: if primer[i] = = '*': primer[i-1] =

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Что не так в программе, она должна узнать какое число больше? вот программа program primer; var a, b, с:integer; Begin readln (a, b, с) ; if a>b then writeln (a) else if b>c writeln (b) else if c>a writeln (c) ; end.

Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на него! Это Паскаль Program Programm; var n:string; a:integer; b:integer; c:integer; answer: integer; begin write ('Как вас зовут:') ; readln (n) ; writeln ('Привет, ', n,'!

Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;