program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
#include <iostream>
using namespace std;
int main(){
int a,b,c,d,o=0;
cin>>a>>b>>c>>d;
for (int i=10000; i<=99999;i++)
if (i % a ==b && i % c == d)
{
cout<<i<<' ';
o=1;
}
if (o==0)
cout<<-1;
}
у тебя все на Украинском!!!!!!!!!
Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.