напишите программу которая после ввода 4 положительных чисел от 0 до 99 находит наименьшее из них

uses crt;

var a,b,c,d,v:integer;

begin

readln (a,b,c,d);

if (a

uses crt;    var a,b,c,d,v:integer;    begin   readln (a,b,c,d);    if (a<b) and (a<c) and (a<d) then v:=a;    if (b<a) and (b<c) and (b<d) then v:=b;  if (c<a) and (c<b) and (c<d) then v:=c; if (d<a)  and (d<b)  and (d<c) then v:=d;    writeln (v);end.тут исправленно

Вот программа, она находит наименьшее число до 99