Uses crt;
const N = 30;
var A: array[1..N] of integer;
i, x, y:
integer;
s: real;
begin
for i:=1 to
N do readln(A[i]);
writeln;
x:=201;
for i:=1 to N do
if (a[i]<x) and (a[i]>179) then begin x:=a[i]; y:=i; end;
writeln(a[y]);
end.
Обратите внимание на то,что русская и английская буква 'а' визуально идентична.
var a,b:String;
begin
a:= ReadString();
b:= ReadString();
WriteLn();
if a.Contains('а') <> true then
WriteLn(a);
if b.Contains('а') <> true then
WriteLn(b);
end.